perm filename SDIOMA[BNF,JRA] blob sn#001937 filedate 1972-10-06 generic text, type T, neo UTF8
(SETQ IBASE (ADD1 7)) 


(DEFPROP SDIOMACS 
 (NIL CH QCH SPWD UNCH) 
VALUE)

(DEFPROP CH 
 (LAMBDA (L) (LIST (QUOTE CHX) (UNCH (CADR L)))) 
MACRO)

(DEFPROP QCH 
 (LAMBDA (L) (LIST (QUOTE CHX) (UNCH (CADR L)))) 
MACRO)

(DEFPROP SPWD 
 (LAMBDA (L) (LIST (QUOTE SPWDX) (CONS (QUOTE QUOTE) (CDR L)))) 
MACRO)

(DEFPROP UNCH 
 (LAMBDA (X) (LSH (MAKNUM (CAAR (GET X (QUOTE PNAME))) (QUOTE FIXNUM)) -13)) 
EXPR)